home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #5 / Amiga Plus CD - 2000 - No. 5.iso / Scene / Events / World_of_Alternatives / Haujob / Show! < prev    next >
Text File  |  2000-01-01  |  657b  |  25 lines
  1. if not exists env:quickstarted
  2. Echo "Die CD ist nicht eingerichtet!*nBitte zuerst Quickstart ausführen!"
  3. wait 2
  4. quit
  5. endif
  6. set r `cd`
  7. set b `Requestchoice "Amiga Plus (C)" "Wollen sie eine Slideshow der Bilder,*noder einzelne Bilder betrachten?" "Slideshow|Nur Einzelne"`
  8. if $b eq 1
  9. ;Slideshow
  10. EXECUTE >NIL: APCD:scripts/viewhtml `list "Show!" lformat="*"%F#?*""` JPG
  11. else
  12.  
  13. ;Einzeln
  14. lab a
  15. requestfile TITLE "Bitte Bild auswählen:" Pattern=#?.jpg drawer="`cd`" >env:APCDPicTEMP
  16. EXECUTE >NIL: APCD:Scripts/viewhtml $apcdpictemp JPG
  17. set a `Requestchoice "Amiga Plus (C)" "Noch ein Bild?" Ja Nein`
  18. if $a eq 1
  19. cd $r
  20. run >NIL: execute Show!
  21. quit
  22. endif
  23. endif
  24. quit
  25.